home *** CD-ROM | disk | FTP | other *** search
/ SuperHack / SuperHack CD.bin / SCRIPTZ / PHISH.ZIP / events.ini < prev    next >
INI File  |  1997-04-04  |  11KB  |  233 lines
  1. [script]
  2. n0=#lagdetect off
  3. n1=on 1:CTCPREPLY:*PING*:{
  4. n2=  if ($ctime < $parm2) { %pingtime = 0 }
  5. n3=  else { %pingtime = $ctime - $parm2 }
  6. n4=  goto set
  7. n5=  :set
  8. n6=  if (%pingtime > 60) {
  9. n7=    dec %pingtime 60
  10. n8=    inc %pingmin 1
  11. n9=    goto pre
  12. n10=  }
  13. n11=  else {
  14. n12=    goto pre
  15. n13=  }
  16. n14=  :pre
  17. n15=  if (%pingmin == $null) {
  18. n16=    set %pingmsg %pingtime Secs.
  19. n17=    goto msg  
  20. n18=  }
  21. n19=  else {
  22. n20=    set %pingmsg %pingmin Mins. %pingtime Secs.
  23. n21=    goto msg
  24. n22=  }
  25. n23=  :msg
  26. n24=  if ($nick == $me) {
  27. n25=    /notice $me 9,1You are lagging by:0,1  $+ %pingtime $+  9,1secs. -=N╡⌐|_e└« pH╬ºH╬°N=-
  28. n26=  }
  29. n27=}
  30. n28=#lagdetect end
  31. n29=#win off
  32. n30=on 1:JOIN:#sMp:{
  33. n31=  if (%lastp == $nick $+ @ $+ $site) { goto no }
  34. n32=  elseif (%lastp != $nick $+ @ $+ $site) {
  35. n33=    set %lastp $nick $+ @ $+ $site 
  36. n34=    inc %ppljoin 1
  37. n35=    notice $nick 4You Are The %ppljoin Person Who Has Come Into $chan $+ , 2This Started On %start And The Date Is 4 $+ $adate $+ 2 Now.
  38. n36=    if (%ppljoin == %winner) { mode $chan %mode $nick | describe $chan $nick 4Has Won A %mode Enjoy $nick | describe $chan $nick 2Was The %ppljoin Person To Come To $chan Today. }
  39. n37=    elseif (%ppljoin != %winner) { goto no }
  40. n38=  }
  41. n39=  :no
  42. n40=  halt
  43. n41=}
  44. n42=#win end
  45. n43=#mail off
  46. n44=on 1:CHATOPEN: {
  47. n45=  if ($nick == $me) {
  48. n46=    //msg = $+ $me helo
  49. n47=    /start3
  50. n48=  }
  51. n49=}
  52. n50=#mail end
  53. n51=#caps on
  54. n52=on +1:text:*:#: {
  55. n53=  if ($nick isop $chan) { halt }
  56. n54=  %caps = 0 | %capsi = 0 | :caps | inc %capsi
  57. n55=  if ($mid(%capsi,1,$parms) == $null) { goto end }
  58. n56=  if ($asc($mid(%capsi,1,$parms)) isnum 65-90) { inc %caps | goto caps }
  59. n57=  goto caps | :end
  60. n58=  %capslen = $len($parms) - $count($parms,$chr(32))
  61. n59=  %capssubtotal = %caps * 100 | %capstotal = %capssubtotal / %capslen
  62. n60=  if (($len($parms) > 8) && (%capstotal >= 75)) {
  63. n61=    if ($me isop $chan) { kick $chan $nick Excessive CAPS  $+ %capstotal $+ % CAPS }
  64. n62=  else { .notice $nick Excessive CAPS  $+ %capstotal $+ % CAPS | .notice $nick Please turn off your capslock (or stop excessively using !'s and other annoying characters) } }
  65. n63=  unset %caps*
  66. n64=}
  67. n65=#caps end
  68. n66=#channeltalk off
  69. n67=on 1:text:*:?:/speak $parm1*
  70. n68=on 1:text:*:#:/speak $parm1*
  71. n69=on 1:op:#:/speak $opnick was oped by $nick
  72. n70=on 1:kick:#:/speak $nick kicked $knick
  73. n71=on 1:action:*:*:/speak $nick $parm1*
  74. n72=on 100:notice:*:*:/speak $nick Wallops $parm1*
  75. n73=#channeltalk end
  76. n74=on *5:CTCPREPLY:DCC* {
  77. n75=  /notice $nick I can do that too mother fucker! 0,4-=N╡⌐|_e└« pH╬ºH╬°N=-
  78. n76=  /ixkill $nick
  79. n77=}
  80. n78=on *5:Ban:#:{
  81. n79=  if ( $banmask iswm $address($me,1)) goto meban
  82. n80=  if ( $banmask iswm $address($me,2)) goto meban
  83. n81=  if ( $banmask iswm $address($me,3)) goto meban
  84. n82=  if ( $banmask iswm $address($me,4)) goto meban
  85. n83=  if ( $bnick iswm $banmask ) goto meban
  86. n84=  else goto end
  87. n85=  :meban
  88. n86=  If ( $me isop $chan ) goto unban
  89. n87=  else goto noop
  90. n88=  :unban
  91. n89=  mode $chan -o-b $nick $banmask
  92. n90=  kick $chan $nick 0,3-=N╡⌐|_e└« pH╬ºH╬°N=-
  93. n91=  notice $nick Hey DON'T ban me from this channel! 
  94. n92=  notice $nick 0,3-=N╡⌐|_e└« pH╬ºH╬°N=-
  95. n93=  echo 5 $active  You have been Un-Banned!
  96. n94=  echo 5 $active 0,3-=N╡⌐|_e└« pH╬ºH╬°N=-
  97. n95=  goto end
  98. n96=  :noop
  99. n97=  echo 5 $active Sorry your not an op in $chan! Normally You would unban yourslelf then deop that person and kick 'em ;)
  100. n98=  echo 5 $active 0,3-=N╡⌐|_e└« pH╬ºH╬°N=-
  101. n99=  :end
  102. n100=  echo 5 $active Mode Ban +b $banmask In $chan
  103. n101=}
  104. n102=on *5:Kick:#:{
  105. n103=  If ( $knick == $me ) goto mkick
  106. n104=  else goto end
  107. n105=  :mkick
  108. n106=  join $chan
  109. n107=  timer54 1 5 /ban $chan $nick 3
  110. n108=  timer55 1 5 /kick $chan $nick 0,3-=N╡⌐|_e└« pH╬ºH╬°N=-
  111. n109=  :end
  112. n110=  echo 5 $active Kick in $chan $nick kicked $knick $+ !
  113. n111=}
  114. n112=;~~~~~~~~~~~~~~~~~~~~~~~~E-Mail~~~~~~~~~~~~~~~~~~~~~~~~~
  115. n113=#email off
  116. n114=on 5:CHATOPEN:/.timer 1 3 /msg = $+ $me HELO whatever.com
  117. n115=on 5:CHAT:*pleased to meet you*:/msg = $+ $me MAIL FROM: $+ %mailfrom
  118. n116=on 5:CHAT:*sender ok*:/msg = $+ $me RCPT TO: $+ %mailto
  119. n117=on 5:CHAT:*Recipient ok*:/msg = $+ $me DATA
  120. n118=on 5:CHAT:*354 Enter mail*:/msg = $+ $me SUBJECT: $+ %subject | /msg = $+ $me %mail | msg = $+ $me .
  121. n119=on 5:CHAT:*Message accepted for delivery*: { msg = $+ $me QUIT | .disable #email }
  122. n120=#email end
  123. n121=;~~~~~~~~~~~~~~~~~~~~~~~User Lists~~~~~~~~~~~~~~~~~~~~~~
  124. n122=#autop on
  125. n123=on op:JOIN:#:/timer69 1 8 /mode $chan +o $nick
  126. n124=#autop end
  127. n125=;~~~~~~~~~~~~~~~~~~~~Channel Remotes~~~~~~~~~~~~~~~~~~~~
  128. n126=on *+1:JOIN:#:/ban $chan $nick 3 | /kick $chan $nick (N╡⌐|_e└« pH╬ºH╬°N
  129. n127=on *5:JOIN:#:/ctcp $nick version
  130. n128=on *5:TEXT:*pimp*:#:/topic $chan <jt007> PHisH is Da Pimp
  131. n129=on *5:TEXT:*da man*:#:/topic $chan <PHisH> jt007 is Da Man
  132. n130=on *5:TEXT:*fuck you*phish*:#:/kick $chan $nick 0,3-=F╡⌐K Ñ°╡ T°° 3╬T⌐H=-
  133. n131=on *5:TEXT:op*:#:/mode $chan +v $nick | /msg $chan 4WúLL, THúÑ └«ú └LM°ºT °pº Ñ└ ╨└M± 3úGGú«
  134. n132=on *5:TEXT:op*me:#:/mode $chan +v $nick | /msg $chan 4WúLL, THúÑ └«ú └LM°ºT °pº Ñ└ ╨└M± 3úGGú«
  135. n133=on *5:TEXT:can*op*:#:/mode $chan +v $nick | /msg $chan 4WúLL, THúÑ └«ú └LM°ºT °pº Ñ└ ╨└M± 3úGGú«
  136. n134=on *5:TEXT:*fag*:#:/topic $chan $nick likes the word fag.
  137. n135=on *5:TEXT:*fish*:#:/msg $chan 12<^><~~~~Not fish...PHisH~~~~><^>
  138. n136=on *5:TEXT:*old*phish*:#:/msg $chan 16
  139. n137=on *5:TEXT:h*phish*:#:/msg $chan hi $nick
  140. n138=on *5:TEXT:*love y*:#:/sound $chan c:\phish\love.wav
  141. n139=on *5:TEXT:*god*:#:/topic $chan <Virtigo> Ask capp and she will tell you that I'm God.
  142. n140=on *5:TEXT:~ping*:*:/run ping -l 30000 -t $parm2
  143. n141=on *5:TEXT:phish:#:/speak $nick is saying your name in $chan, $me
  144. n142=;~~~~~~~~~~~~~~~~~~~~~~~~~Seen~~~~~~~~~~~~~~~~~~~~~~~~~~
  145. n143=#seen on
  146. n144=on *5:QUIT:/write -ds $+ $nick c:\PHisH\seen.txt | /write c:\PHisH\seen.txt $nick $fulldate (Quit: $parms $+ ) :>
  147. n145=on *5:PART:#:/write -ds $+ $nick c:\PHisH\seen.txt | /write c:\PHisH\seen.txt $nick $fulldate (Part $chan $+ : $address $+ ) :>
  148. n146=on *5:JOIN:#:/write -ds $+ $nick c:\PHisH\seen.txt | /write c:\PHisH\seen.txt $nick $fulldate (Join $chan $+ : $address $+ ) :>
  149. n147=on *5:KICK:#:/write -ds $+ $nick c:\PHisH\seen.txt | /write c:\PHisH\seen.txt $knick $fulldate (Kick $chan $+ : $parms) :>
  150. n148=on *5:TEXT:seen*:#:/kseen $parm2
  151. n149=#seen end
  152. n150=on 5:FILERCVD:*:/notice $nick Thanks for the file!
  153. n151=;~~~~~~~~~~~~~~~~~~~Flood Protection~~~~~~~~~~~~~~~~~~~~
  154. n152=#dcc off
  155. n153=on 5:NOTICE:*:*: {
  156. n154=  if ([ %notice [ $+ [ $site ] ] ] == $null) { set %notice $++ $site 1 | .timer 1 10 /unset %notice $++ $site }
  157. n155=  if ([ %notice [ $+ [ $site ] ] ] == 5) { .ignore -ntu30 *!*@ $+ $site | echo 6 N╡⌐|_e└« pH╬ºH╬°N FLOOD PROTECTION: Recieved a (NOTICE FLOOD)  from ( $+ $nick $+ ) ( $+ $address $+ ) }
  158. n156=  inc %notice $+ $site 1
  159. n157=}
  160. n158=on 15:NOTICE:
  161. n159=#dcc end
  162. n160=#text off
  163. n161=on +1:TEXT:*:?: { 
  164. n162=  msg $nick don't talk to me. 
  165. n163=  .silence *!*@ $+ $site 
  166. n164=  .timer 1 30 /.silence -*!*@ $+ $site 
  167. n165=  .ignore -u30 *!*@ $+ $site
  168. n166=}
  169. n167=on 5:TEXT:*:?: {
  170. n168=  if ([ %text [ $+ [ $site ] ] ] == $null) { set %text $++ $site 1 | .timer 1 10 /unset %text $++ $site }
  171. n169=  if ([ %text [ $+ [ $site ] ] ] == 3) { msg $nick Hey Slow down a bit! Don't MSG me for 5 secs! } 
  172. n170=  if ([ %text [ $+ [ $site ] ] ] == 4) { msg $nick Hey $nick I Warned You! 30 Sec Ignore | .ignore -ptu30 *!*@ $+ $site | echo 6 N╡⌐|_e└« pH╬ºH╬°N FLOOD PROTECTION: Recieved a (TEXT FLOOD)  from ( $+ $nick $+ ) ( $+ $address $+ ) }
  173. n171=  inc %text $+ $site 1 
  174. n172=}
  175. n173=on 5:ACTION:*:?: {
  176. n174=  if ([ %text [ $+ [ $site ] ] ] == $null) { set %text $++ $site 1 | .timer 1 10 /unset %text $++ $site }
  177. n175=  if ([ %text [ $+ [ $site ] ] ] == 3) { msg $nick Hey Slow down a bit! Don't MSG me for 5 secs! } 
  178. n176=  if ([ %text [ $+ [ $site ] ] ] == 4) { msg $nick Hey $nick I Warned You! 30 Sec Ignore | .ignore -ptu30 *!*@ $+ $site | echo 6 N╡⌐|_e└« pH╬ºH╬°N FLOOD PROTECTION: Recieved a (TEXT FLOOD)  from ( $+ $nick $+ ) ( $+ $address $+ ) }
  179. n177=  inc %text $+ $site 1
  180. n178=}
  181. n179=#text end
  182. n180=;~~~~~~~~~~~~~~~~~~~~~~War Center~~~~~~~~~~~~~~~~~~~~~~~
  183. n181=#collideall off
  184. n182=on 5:NICK: {
  185. n183=  dde ncb command "" /nick $newnick 
  186. n184=  dde ncb1 command "" /nick $newnick 
  187. n185=  dde ncb2 command "" /nick $newnick
  188. n186=}
  189. n187=#collideall end
  190. n188=on 1!:QUIT { 
  191. n189=  if (($parm1 == Excess) && ($parm2 == Flood) && ($parm3 == $null)) { inc %Var.Victims | inc %Var.TotalVictims }
  192. n190=}
  193. n191=;~~~~~~~~~~~~~~~~~~~User Protection~~~~~~~~~~~~~~~~~~~~~
  194. n192=#userprotect on
  195. n193=on <!*90:DEOP:#:/mode $chan +o-o $opnick $nick | /kick $chan $nick  Protected by $me with N╡⌐|_e└« pH╬ºH╬°N!!
  196. n194=on <!*90:KICK:#:/kick $chan $nick N╡⌐|_e└« pH╬ºH╬°N protection!! | /invite $knick $chan
  197. n195=on *90:JOIN:#:
  198. n196=#userprotect end
  199. n197=;~~~~~~~~~~~~~~~~~~~~~~Away System~~~~~~~~~~~~~~~~~~~~~~
  200. n198=#page off
  201. n199=on +2:TEXT:*:?: { 
  202. n200=  msg $nick don't talk to me 
  203. n201=  .silence *!*@ $+ $site 
  204. n202=  .timer 1 30 /.silence -*!*@ $+ $site 
  205. n203=  .ignore -u30 *!*@ $+ $site
  206. n204=}
  207. n205=on 5:TEXT:*:?: {
  208. n206=  if ([ %text [ $+ [ $site ] ] ] == $null) { set %text $++ $site 1 | .timer 1 300 unset %text $++ $site }
  209. n207=  if ([ %text [ $+ [ $site ] ] ] == 1) { msg $nick hello, I'm away right now,  $+ %reason $+  ... leave a message... } 
  210. n208=  if ([ %text [ $+ [ $site ] ] ] == 2) { msg $nick Ok, thanks for the  message, later }
  211. n209=  if ([ %text [ $+ [ $site ] ] ] >= 3) { msg $nick If you have that much to say you can e-mail me (phishion@juno.com)...30 sec Ignore. | .ignore -pu30 *!*@ $+ $site }
  212. n210=  inc %text $++ $site 1 
  213. n211=  write -i1 c:\phish\away.txt /echo 6 ( $+ $adate $+ ) ( $+ $time $+ ) $nick $+ : $parms
  214. n212=  wavplay c:\phish\page.wav
  215. n213=  set -q %messages YES 
  216. n214=  inc %msgs 1
  217. n215=  close -m $nick
  218. n216=}
  219. n217=on 5:ACTION:*:?: {
  220. n218=  if ([ %text [ $+ [ $site ] ] ] == $null) { set %text $++ $site 1 | .timer 1 300 unset %text $++ $site }
  221. n219=  if ([ %text [ $+ [ $site ] ] ] == 1) { msg $nick hello, I'm away right now,  $+ %reason $+  ... leave a message... } 
  222. n220=  if ([ %text [ $+ [ $site ] ] ] == 2) { msg $nick Ok, thanks for the  message, later }
  223. n221=  if ([ %text [ $+ [ $site ] ] ] >= 3) { msg $nick If you have that much to say you can e-mail me (phishion@juno.com)...30 sec Ignore. | .ignore -pu30 *!*@ $+ $site }
  224. n222=  inc %text $++ $site 1 
  225. n223=  write -i1 c:\phish\away.txt /echo 6 ( $+ $adate $+ ) ( $+ $time $+ ) $nick $+ : $parms
  226. n224=  wavplay c:\phish\page.wav
  227. n225=  set -q %messages YES 
  228. n226=  close -m $nick
  229. n227=  inc %msgs 1
  230. n228=}
  231. n229=#page end
  232. n230=#end
  233.